home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v9n13.arc / YESNO.PRG < prev   
Text File  |  1990-06-14  |  1KB  |  46 lines
  1. DATABASES
  2.  
  3. YESNO.PRG
  4.  
  5. ***********************************************************************
  6. * FUNCTION YesNo(msg1, msg2, title, colscheme)
  7. *
  8. * Display a Yes/No/Cancel dialog and return a response.
  9. *
  10. * Usage:
  11. *     msg1 = "Are you sure you want to"
  12. *     msg2 = "exit this application?"
  13. *     title = " ALERT "
  14. *     colscheme = 8
  15. *     answer = YesNo(msg1, msg2, title, colscheme)
  16. *
  17. ***********************************************************************
  18. FUNCTION YesNo
  19. PARAMETERS text1, text2, title, colscheme
  20.  
  21. DEFINE WINDOW yesno FROM 7, 15 TO 15, 65 TITLE "&title" COLOR SCHEME colscheme
  22. ACTIVATE WINDOW yesno
  23. @ 1, (50-len(text1))/2 SAY text1       && Display first message
  24. @ 2, (50-len(text2))/2 SAY text2       && Display second message
  25.  
  26. DEFINE MENU yesno COLOR SCHEME colscheme
  27. DEFINE PAD yes          OF yesno PROMPT '<   \<Yes   >'  AT 04,03
  28. DEFINE PAD no           OF yesno PROMPT '<   \<No    >'  AT 04,17
  29. DEFINE PAD cancel       OF yesno PROMPT '<  \<Cancel  >' AT 04,31
  30. ON SELECTION PAD yes    OF yesno DEACTIVATE MENU yesno
  31. ON SELECTION PAD no     OF yesno DEACTIVATE MENU yesno
  32. ON SELECTION PAD cancel OF yesno DEACTIVATE MENU yesno
  33.  
  34. ACTIVATE MENU yesno PAD no             && Get Yes, No or Cancel
  35. DO CASE
  36. CASE PAD()=="YES"                      && Set retcode
  37.      STORE .T. TO retcode
  38. OTHERWISE
  39.      STORE .F. TO retcode
  40. ENDCASE
  41.  
  42. RELEASE MENU yesno
  43. RELEASE WINDOW yesno
  44. RETURN retcode
  45. * eof
  46.